home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / t / pragma / warn-1global < prev    next >
Text File  |  1998-03-05  |  2KB  |  152 lines
  1. Check existing $^W functionality
  2.  
  3. __END__
  4.  
  5. # warnable code, warnings disabled
  6. $a =+ 3 ;
  7. EXPECT
  8.  
  9. ########
  10. -w
  11. # warnable code, warnings enabled via command line switch
  12. $a =+ 3 ;
  13. EXPECT
  14. Reversed += operator at - line 3.
  15. ########
  16. #! perl -w
  17. # warnable code, warnings enabled via #! line
  18. $a =+ 3 ;
  19. EXPECT
  20. Reversed += operator at - line 3.
  21. ########
  22.  
  23. # warnable code, warnings enabled via compile time $^W
  24. BEGIN { $^W = 1 }
  25. $a =+ 3 ;
  26. EXPECT
  27. Reversed += operator at - line 4.
  28. ########
  29.  
  30. # compile-time warnable code, warnings enabled via runtime $^W
  31. # so no warning printed.
  32. $^W = 1 ;
  33. $a =+ 3 ;
  34. EXPECT
  35.  
  36. ########
  37.  
  38. # warnable code, warnings enabled via runtime $^W
  39. $^W = 1 ;
  40. my $b ; chop $b ;
  41. EXPECT
  42. Use of uninitialized value at - line 4.
  43. ########
  44.  
  45. # warnings enabled at compile time, disabled at run time
  46. BEGIN { $^W = 1 }
  47. $^W = 0 ;
  48. my $b ; chop $b ;
  49. EXPECT
  50.  
  51. ########
  52.  
  53. # warnings disabled at compile time, enabled at run time
  54. BEGIN { $^W = 0 }
  55. $^W = 1 ;
  56. my $b ; chop $b ;
  57. EXPECT
  58. Use of uninitialized value at - line 5.
  59. ########
  60. -w
  61. --FILE-- abcd
  62. my $b ; chop $b ;
  63. 1 ;
  64. --FILE-- 
  65. require "./abcd";
  66. EXPECT
  67. Use of uninitialized value at ./abcd line 1.
  68. ########
  69.  
  70. --FILE-- abcd
  71. my $b ; chop $b ;
  72. 1 ;
  73. --FILE-- 
  74. #! perl -w
  75. require "./abcd";
  76. EXPECT
  77. Use of uninitialized value at ./abcd line 1.
  78. ########
  79.  
  80. --FILE-- abcd
  81. my $b ; chop $b ;
  82. 1 ;
  83. --FILE-- 
  84. $^W =1 ;
  85. require "./abcd";
  86. EXPECT
  87. Use of uninitialized value at ./abcd line 1.
  88. ########
  89.  
  90. --FILE-- abcd
  91. $^W = 0;
  92. my $b ; chop $b ;
  93. 1 ;
  94. --FILE-- 
  95. $^W =1 ;
  96. require "./abcd";
  97. EXPECT
  98.  
  99. ########
  100.  
  101. --FILE-- abcd
  102. $^W = 1;
  103. 1 ;
  104. --FILE-- 
  105. $^W =0 ;
  106. require "./abcd";
  107. my $b ; chop $b ;
  108. EXPECT
  109. Use of uninitialized value at - line 3.
  110. ########
  111.  
  112. $^W = 1;
  113. eval "my $b ; chop $b ;" ;
  114. EXPECT
  115. Use of uninitialized value at - line 3.
  116. Use of uninitialized value at - line 3.
  117. ########
  118.  
  119. eval "$^W = 1;" ;
  120. my $b ; chop $b ;
  121. EXPECT
  122.  
  123. ########
  124.  
  125. eval {$^W = 1;} ;
  126. my $b ; chop $b ;
  127. EXPECT
  128. Use of uninitialized value at - line 3.
  129. ########
  130.  
  131. {
  132.     local ($^W) = 1;
  133. }
  134. my $b ; chop $b ;
  135. EXPECT
  136.  
  137. ########
  138.  
  139. my $a ; chop $a ;
  140. {
  141.     local ($^W) = 1;
  142.     my $b ; chop $b ;
  143. }
  144. my $c ; chop $c ;
  145. EXPECT
  146. Use of uninitialized value at - line 5.
  147. ########
  148. -w
  149. -e undef
  150. EXPECT
  151. Use of uninitialized value at - line 2.
  152.